home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
3DLIB25.ZIP
/
PROJECT3.INT
< prev
next >
Wrap
Text File
|
1993-12-26
|
4KB
|
74 lines
(******************************************************************************
* project3 *
******************************************************************************)
unit project3;
(*******************************************************************************
* this unit has 2 instances : the first one is used with the windows *
* graphic user interface, and the other does not, *
* *
* +-------------------------------------------------+ *
* | this unit is NOT interfaced to the window GUI, | *
* | for use on a bare screen ONLY - for runTime! | *
* | **** | *
* +-------------------------------------------------+ *
* *
*this unit handles the 3d -> 2d projections, we use 2 different methods *
* of projections : *
* *
* A : axonometric projections, no perspective due to *
* distance is performed, the general way *
* we can look at the coordinate system is as *
* follows : *
* *
* | z axis *
* | *
* / \ *
* x axis / \ y axis *
* *
* B : perspective projections : the normal eye perspective *
* projection is performed, we can look at the 3d *
* universe we are refering to as a cube of *
* 1000 x 1000 x 1000 integer locations, with *
* the x axis, and y axis parallel to the screen *
* x, y axis respectivly, and the z axis going into *
* the screen. *
* *
* we will look at the coordinate system as follows : *
* *
* │ Y axis *
* │ *
* Z axis x------ X axis *
* *
* *
*******************************************************************************)
interface
uses
{$ifndef windows}
graph,
{$endif}
hdr3d
;
const
perspective : boolean = false;
{true = perspective, else = axonometric}
{$ifndef windows}
var
MaxX, MaxY : word; { In pixels for graphics screen }
MaxColor : word;
GraphDriver : integer;
GraphMode : integer;
{$endif}
procedure calcPoint(p3d : point3d; var psc : screenPoints);
procedure setPerspective;
procedure resetPerspective;
procedure togglePerspective;
implementation
end.